home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / reverse-layers.scm < prev    next >
Text File  |  2009-12-15  |  1KB  |  44 lines
  1. ;; reverse-layers.scm: Reverse the order of layers in the current image.
  2. ;; Copyright (C) 2006 by Akkana Peck.
  3. ;;
  4. ;; This program is free software; you can redistribute it and/or modify
  5. ;; it under the terms of the GNU General Public License.
  6.  
  7. (define (script-fu-reverse-layers img drawable)
  8.   (let* (
  9.         (layers (gimp-image-get-layers img))
  10.         (num-layers (car layers))
  11.         (layer-array (cadr layers))
  12.         (i (- num-layers 1))
  13.         )
  14.  
  15.     (gimp-image-undo-group-start img)
  16.  
  17.     (while (>= i 0)
  18.            (let ((layer (aref layer-array i)))
  19.              (if (= (car (gimp-layer-is-floating-sel layer)) FALSE)
  20.                  (gimp-image-lower-layer-to-bottom img layer))
  21.            )
  22.  
  23.            (set! i (- i 1))
  24.     )
  25.  
  26.     (gimp-image-undo-group-end img)
  27.     (gimp-displays-flush)
  28.   )
  29. )
  30.  
  31. (script-fu-register "script-fu-reverse-layers"
  32.   _"Reverse Layer Order"
  33.   _"Reverse the order of layers in the image"
  34.   "Akkana Peck"
  35.   "Akkana Peck"
  36.   "August 2006"
  37.   "*"
  38.   SF-IMAGE    "Image"    0
  39.   SF-DRAWABLE "Drawable" 0
  40. )
  41.  
  42. (script-fu-menu-register "script-fu-reverse-layers"
  43.                          "<Image>/Layer/Stack")
  44.